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r+} CNX K_LOCKED = Mark Node Locke 
7 eb pyr ‘ew ty = Mark Node Unlocked 
) 8 CNX DIRvE ADJ = Adjust size of lock peneger directory system vector 
) CNXSDIRVEC nyt 5 ate contents of lock manager directory system vector 
) CNXSCLUB_WAIT = Do LUG"Based | Second Wait 
) 9 et 19 tag FORK = Do CLUB-Based Fork 
) CNXSFIX_EPID - Add node spec tier to EPIDs 
) 4 CNXSCHECK QUORUM = Check ppeonte of Quorum and Hang if Absent 
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) 1161 CNXSQUORUM_CALC™= Calculate Quorum and related data 
) 1245 ENXSD1SPATCH = Second level input dispatcher for CNX 
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"FACILITY: EXECUTIVE, CLUSTER MANAGEMENT 


ABSTRACT: 
This module contains utility routines used by cluster configuration 


management and failover sequencing. 


ENVIRONMENT: VAX/VMS 
AUTHOR: David W. Thiel, 
MODIFIED BY: 


CREATION DATE: 4-Apr-1983 


v03-012 DWT0239 avid W. Thiel 30-Aug-1984 
Tie off CNXSBUGCHECK CLUSTER to be a plain bugcheck, 
4 it doesn't work. 


v03-011 purdees David W. Thiel Jul-1984 
ange call to keapor ery name EXESMNTVERSP2” to 
real name Extscter ANIO. 


v03-010 DWT0219 David W. Thiel OS fay~ 1906 
Add synchronization of 1/0 cluster and lock cluster. 


v03-009 puross? David W. Thiel 07-Apr-1984 
e BUSY bit in CLUBFKB to erect activit io this 
block nstead of a bit in the CLUBSL_FLAGS field. 


v03-008 DWT0195 David W. Tato} ay per 196s 
Add notion of dynamic quorum for quorum d 


Page 


PARAARAAARAAAAAASAAAAALA LEA A SALES E ECAR EER ETRE EECA EERE R EERE EASE ER EE ESET 


® 
® 
w 
® 
* 
* 
® 
® 
*® 
® 
*® 
® 
® 
® 
® 
* 
® 
® 
® 
® 
* 


1 
(1) 


N 
- Cluster Configuration Manager uNifete 16-SEP-1984 00:28:47 \VAX/VMS Macro v04-00 P 
. . gr See 158s Be8hisG PANEYRS Sacre NOtT0O 8, (Page OG, 


Dove computation of dynsalc querua from 
CNXSQUORUM_CALC to COMPUTE _DYNAMIC_QUORUM. 
Correct dynamic and static quorum Computation. 


v03-007 pytytys David W. Thiel 21-F eb-1984 
Minimize quorum disk votes against value in CLUB 
when computing quorum. 


V03-006 DWT0152 David W. Thiel 29-Dec-1983 
Replace lock manager directory system logic with 
new code to support directory system vector. 

Add common routine to compute quorum and quppert a 
variable number of votes for the quorum disk. 
Delete CNXSFAILO_ALLOW_JOIN routine. 


V03-005 DWT0146 David W. Thiel 14-Nov-1983 
Block activity when out of quorum using a fork block 
in the CLUB rather than a wired-in for ock. 

Add routines CNXSDIRVEC_ADJ and CNXSDIRVEC_FILL to 
manipulate the lock manager directory system vector. 


V03-004 DwT0128 David W. Thiel 30-Aug-1983 
Clean up lock manager directory system CSID 
management. 

v03-003 DWT0119 David W. Thiel 11-Aug-1983 
Add suprert for quorum disk. Change CONFIG_CHANGE 
to CNXSCONFIG_CHANGE. 

v03-002 D David 28-Jul-1983 


WT0110 vid W. Thiel 

Add CNX$SCAN_CSBS_FORK and CNXS$CLUB_FORK routines. 
Convert failover routines to JSB interface. 

Add routine to loop at IPL 4 while the cluster is out 
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of quorum. 

V03-001 DWT0106 David W. Thiel 21-Jun-1983 
Coorect CNXSSET_DIRSYS, add CNXSFORM_DIRSYS entry point. 
Add failover routine to allow nodes fo join cluster. 
Enable code to fix EPIDs. 
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~SBTTL DECLARATIONS 
; INCLUDE FILES: 


wn 
Setetes 


CDRP eireece 

COT Offs sete 

Cluster d rte bed 5 bt codes 
Cluster message defin 

ebuster Block offsets 
Da 
Fork 
IP 


@ 
So 


ffsets 
ta srructure artes codes 


Bloc 
L "eet Breck it A 
IRP offsets 
Process Control Block offsets 
System Block offsets 
Status code definitions 
TQE offsets 


FRA AERA AAA EAE AERA AAAAEEAAAEAAAAAAAEAARAAAAAAERAAAAAAAAAEAAKEEe ee 
. 


o 
m 
nn" 
. 


: NOTE: The following assumptions are in effect for this entire module. 
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00 ASSUME IPLS$_SYNCH EQ IPL$_SCS 
bo ASSUME IPLS-SYNCH EQ IPLS_TIMER 
0000 
0000 eh -PSECT $$$100,LONG 
0000 - DEFAULT DISPLACEMENT ,WORD 


ASSUME IPLS-SYNCH GT IPLS$ IOPOST 
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-SBTTL CNXSRESP_FORGET = Respond to a message and forget about it 
-SBTTL CNXSSEND_FORGET - Send message and Tereet about it : 


re 


FUNCTIONAL DESCRIPTION: 


Queue a message or response to be sent and forget about it. 
When the acknowledgement is received or the connection breaks, 
the CORP is deallocated. 


CALLING SEQUENCE: 


: JSB CNXSSEND_FORGET 

: JSB CNXSRESP~ FORGET 

; IPL is IPL$_SCS 

: INPUT PARAMETERS: 

; Re: Address of message buffer (CNXSRESP_FORGET only) 

: R3: Address of CS 

: R5 Address of fully initialized CDRP 

: OUTPUT PARAMETERS: 

: NONE 

: COMPLETION CODES: 

: NONE 

: SIDE EFFECTS: 

: NONE 

CNXSRESP_FORGET:: 
ROVL R2,CDRPSL_MSG_ BUF(RS) =; Address of message buffer 
MOVL  CLSMSGSL_RSPID(R2), - : Store RSPID to return in CDRP 

CORPSL_RETRSPID(RSS 


CNXSSEND_FORGET:: 


BsBw CNXSSEND_MSG_CSB 


We are resumed here when the message is acknowledged. 
Registers contain: 


; Send message 


Status 
R3: Address of CSB 
R4: Address of PDT 
RS: Address of CDRP 


MOVL 


RS,RO 3; Address of CDRP 
JMP G*EXESDEANONPAGED 


3; Deallocate CDRP and return 
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~SBTTL CNXSBUGCHECK_CLUSTER = Bugcheck local cluster 

* +4 

; FUNCTIONAL DESCRIPTION: 

This routine is age te Ba pment that all members of the local 

cluster bugcheck. Bypie - use is when two clusters detect each 

other and one (or both decide to bow out gracefully. 

wee TEMPORARY *e* 

Since Frere was a fatal flaw in the approach, this has been replaced 

7S a plain old chutk thi bugcheck to minimize the confusion added to 
e dump. 

; CALLING SEQUENCE: 


JSB CNXS$BUGCHECK_CLUSTER 
TPL is IPL$_SCS 


INPUT PARAMETERS: 
; NONE 

; OUTPUT PARAMETERS: 

; NONE 

; COMPLETION CODES: 

: NONE 

; SIDE EFFECTS: 

; Cluster Holocaust 
c 


a CLUSTER:: 
G_CHECK CLUEXIT,FATAL ; We've can't shut down the world, so just 
; shut down self 
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-SBTTL CNXSINIT_CSBS = Initialize CSBs for new transition 
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FUNCTIONAL DESCRIPTION: 
This routine initializes all CSBs for a new transition. 
CALLING SEQUENCE: 


JSB CNXSINIT_CSBS 
IPL is IPL$_SCS 


INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO and R1 are destroyed 
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CNXSINIT_CSBS:: 
USHR 


NAME AN 9 ODNOA NE WIN  O OD NA UE OOD NOU EU 


SDD DED DED ADD I Be BS BS BB BB WIN 


18 ee ig #*M<R3,R4> ; Save registers 
000¢ BSBW CNXS$SCAN_CSBS : Iterate over all SBs 
06 50 «ED BLBC r ; Branch when done 
00 60 a3 11. «ES «=—00 BBCC 4 =_- #CSBSV SELECTED - : Clear selected flag 
CSBSL_STATUS(R35 ,10$ 
05 8 10$:  RSB 
18 BA si 0 20$: POPR #*°M<R3,R4> ; Restore registers 
5 00 1 RSB 
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-SBTTL CNXSSCAN_CSBS = Scan all CSB's 
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; FUNCTIONAL DESCRIPTION: 

This routine scone all csB° 

It does a co-routine call=back for each CSB. 

When all CSB's have been scanned, it returns failure status. 
CALLING SEQUENCE: 


JSB CNXSSCAN_CSBS 
1eL is IPL$_SCS ~ 


INPUT PARAMETERS: 

NONE 
OUTPUT PARAMETERS: 

R4 is CLUB address 
COMPLETION CODES: 


RO = even: end of scan 
RO = odd: se-cout ine call-back 
is address of CSB 


R4 is address of CLUB 
On co-routine return 
is address of CSB following which 
the scan is to resume. 


SIDE EFFECTS: 
R3 is destroyed 


-ENABLE LSB 

CNXS$SSCAN_CSBS:: 
AOVL GrCLUSGL CLUB,R3 3; Get CLUB address 
ASSUME CLUBSL_CSBQFL EQ 0 
ASSUME CSBSL_SYSQFL EQ 0 

10$: MOVL Peck CLUB,R4 ; Get CLUB address 

MOVL CSB f -SYSOFL (RS) .R3 ; Advance to next CSB 
CMPL 4 3; End of List? 
BEQL 36$ 3; Branch if no more CSB's 

20$: MOVL $*#SS$_NORMAL ,RO ; Set success value 


1 


Call back caller: 


(SP): Original return address 
OCSP): Return address to resume scan 


RO: Status = SS$_NORMAL 


0 


6 7? 
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2222225 
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; +4 Address of CSB scanned 

: R4: Address of CLUB 

i JSB a(sP) ; Return with CSB 

; R3 : Address of CSB following which scan resumes 
; Others: Don't ca 


BRB 1108 ; Go around again 

~SBTTL CNXSSCAN_CSBS_EXIT = Request immediate exit from CSB Scan 
++ 
FUNCTIONAL DESCRIPTION: 

This code provides an immediate exit from the CSB scan Loop. 
CALLING SEQUENCE: 


JMP CNXSSCAN_CSBS_EXIT 
IPL is IPL$_SCS 


INPUT PARAMETERS: 
R3 is CSB address 
OUTPUT PARAMETERS: 
Return is from call to CNXSSCAN_CSBS. 
Re is CLUB address 
COMPLETION CODES: 
Return is from call to CNX$SCAN_CSBS 
SIDE EFFECTS: 
RO and R4 are destroyed 


CNXSSCAN_CSBS_EXIT:: 
KDDL 8 


SP 3; Clear serraut ine return from stack 
MOVL GreLUSGL_ CLUB,R4 : Get CLUB addre 
3 1308: peat : Set failure ha pl 


-SBTTL CNXSSCAN_CSBS_RETRY - Delay, then Contine CSB Scan 
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FUNCTIONAL DESCRIPTION: 


This routine handles the case where a thread must wait for 
some resource before it may proceed during a CSB scan. 
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aul context for the thread must reside in the R3 CSB address. 
After the gelay, NXSSCAN + | returns with the same CSB as on 
the iteration during which this routine was called. 

CALLING SEQUENCE: 


JMP CNXSSCAN_CSBS_RETRY 
IPL is IPL$_SCS 


INPUT PARAMETERS: 
R3 is CSB address 
OUTPUT PARAMETERS: 
Return is from call to CNXS$SCAN_CSBS. 
Ra is CLUB address 
COMPLETION CODES: 
Return is from call to CNX$SCAN_CSBS 
SIDE EFFECTS: 


RO, R1, R2, R4, RS are destroyed 
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NXSSCAN_ CSBS_RETRY: : 
ADDL 


DOL MONIIANNNUNTUIUIAII 


SE 04 3 Know this value 
54 0000 ' GF MOVL  G*C€LUSGL_CLUB,R4 : Address of CLUB 
5 OOCC C4 MOVAB CLUBSB_FORK_BLOCK(R4),RS5 ; Address of fork block 
16 1¢ AS 00 BBSS #CLUBFRBSV_FKB BUSY, - ; Branch if fork block is 
CLUBFKBSL_STATOS(R55,300$ ; not busy 
10 AM<R4> ; Save return address 


POPR 
ASSUME CLUBFKBSB_FORK_BLOCK £0 06 
ASSUME CLUBFKBSS_FORK_BLOCK GE FKBSK_LENGTH 

IT ; Wait for the next clock tick 
Restore return address 
i Address of C 


P R4 : 
MOVAB -CLUBSB_FORK BLOCK(RS),R& LUB 
lear fork block busy indicator 


BBCC #CLUBFKBSV_FRB BUSY, - ; 
LUBFKBSL_STATOS(RS) ,3008 
BRB $ 3; Repeat co-routine call 


BUG_CHECK CNXMGRERR,FATAL ; Double use of fork block 
~SBTTL CNXSSCAN_CSBSS_FORK - Fork, then Contine CSB Scan 


4  FF34 eg 
03 1C AS 66 


C1 


w 
[=] 
So 
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FUNCTIONAL DESCRIPTION: 


This routine handles the case where a thread must momentarily 
release control before it may precees or ng a CSB scan. 

ALL context for the thread must reside in the R35 CSB address. 
After the delay, CNXSSCAN_CSBS returns with the same CSB as on 
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the iteration during which this routine was called. 


CALLING SEQUENCE: 


CNXSSCAN_CSBS_FORK 
iL is IPL$_SCS ~ 


INPUT PARAMETERS: 


R3 is CSB address 


OUTPUT PARAMETERS: 


petyre is from call to CNX$SCAN_CSBS. 
RS is CSB address 
R4 is CLUB address 


COMPLETION CODES: 


Return is from call to CNXS$SCAN_CSBS 


SIDE EFFECTS: 


RO, R1, R2, R4, RS are destroyed 


NXSSCAN CSBS_FORK: : 


KOOL #4,SP i Know this value 

MOVL  6*CLUSGL RG Address of CLUB 

MOVAB CLUBSB Lonke BLOCK(R4),RS ;: anseress of ek block 

BBSS dietatt te KB_BUSY Branch h if fork block is 
CLUBFKBSL_STATOS(RSS cook busy 

MOVB ine $ SCS; FKBSB_ FIPLERS) sinitialize fork IPL 


POPR Save return address 
ASSUME CLUBFKBSB_ FORK BLOCK Ea 6 
ASSUME CLUSEKESS FORK_BLOCK GE : waif unt 


JSB FORR : 
Ree tore return address 


MOVAB -=CLUBSB FORK pb Qck (Rs). rb? “Address of CLUB 
BBCC aCLUBFRESV 


BUSY 
ct UBF KBSL_ VerarOetRss, 4008 
BRw ; Advance to next CSB 
BUG_ CHECK CNXMGRERR,FATAL ; Double use of fork block 
- DISABLE LSB 


69:50 USYSUOR. SREStonUt IL man: 1 


tt lear fork block busy indicator 


Page 


until the fork List cycles 


1 
( 


8) 


v0 


gur 


tc 
Boe 


fen Manager US TEE MECRRHREE 8R:8H:93 SYSLOA.SRET¢ONUTIL-maR;1 "#®* Uy 


~SBTTL CNXSASSIGN_CSID = Assign a tentative CSID to a CSB 


* 
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FUNCTIONAL DESCRIPTION: 
ea yergee Ny stor and form the CSID. 
2° seu° us r'esip ie tentative CSID allocation context 
om n étus NEXT 
CALLING SEQUENCE: 


$B CNXSASSIGN_CSID 
PL is IPL$_SCS 


INPUT PARAMETERS: 


R3: CSB for which a CSID is to be allocated 
CLUBSW_NEXT_CSID sentelen first CSID slot to consider 


OUTPUT PARAMETERS: 
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R4: CLUB address 
COMPLETION CODES: 
RO: success/failure status 


SIDE EFFECTS: 


tye CSID(R3) receives the allocated CSID. 
CLUB Q_NEXT_CSID is updated. 
R1 and R2 are : Ah I 


Se Se Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge 


; Return success 


fi - 
ii ns oe 
008 CNXSASSIGN_CSID:: 
54 AS D0 008 MOUL © CSBSL_C cn) R4 ; Address of CLUB 
50 "GF C 008 MOVZWL 6 CLUSGU RA INDEX 3; Number of ostenttolis available slots 
64 Ab 00 MOVZWL s yes. NE Mt TTB CAG) R2 ; First slot to consider 
4! BEQL ; Branch to avoid slot 0 
00000000 ' GF ° i! 108: CPW G*CLUSGW_MAXINDEX  ; Wrap slot index around yet? 
F 00 BLSSu 308 ; Not yet 
5 a! eps: MOVL #1,R ; Do wrap around 
51 "GF $00 00 $: MOVL grt sc CLUSVEC. RI : Address of CSB vect 
142 «00 OC MOVL R ; Look at CSB vector entry 
‘ n! ore me : Branch if slot is free 
E2 rs if : SOBGTR RO,10$ ; Iterate over att possible slots 
0 00 2 RSB ; Return with failure status 
64.06 52 01 Al 00 42 40$:  ADDWS #1,R2, - ; Update next CSID 
DC 4 CLUBSU_NEXT_CSID(R4) 
0 44 ADDWS «6 #1,R eSB Su CSID SEQ(R3) ; CSID sequence number 
ie CSB CSTD_IDR(R3)  ; CSID index 
4 
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«SBTTL CNXSMARK_LOCKED = Mark Node Locked 


FUNCTIONAL DESCRIPTION: 
Mark the specified node as LOCKED. 
CALLING SEQUENCE: 


JSB CNXSMARK_LOCKED 
IPL is IPLS$_SCS ~ 


INPUT PARAMETERS: 
R3: CSB of the node to be marked locked 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R1 are destroyed. 


CNXSMARK_LOCKED:: 
TNCB CSB$B_REF_CNT(R3) ; Bump reference count to nail down CSB 
BBSS #CSB$0_LOCKED ; Lock and branch if already locked 
oe CSBSL “STATUS(A3) , 90$ 


BUG_CHECK CNXMGRERR,FATAL ; Consistency check 
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«SBTTL CNXSMARK_UNLOCKED = Mark Node Unlocked 
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FUNCTIONAL DESCRIPTION: 
Mark the specified node as unLOCKED. 
CALLING SEQUENCE: 


JSB CNXSMARK_UNLOCKED 
1eL is IPL$_SCS 


INPUT PARAMETERS: 
R3: CSB of the node to be marked unlocked 
OUTPUT PARAMETERS: 
R3: If CSB deleted, then contents of back Link pointer 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 6 
1 
1 
1 
Bs § 
! 2 If CSB not deleted, then CSB address 
: 22 COMPLETION CODES: 
} e10 NONE 
: oi¢ SIDE EFFECTS: 
1 E 614 RO-R1 are destroyed. 
1 615 
1s big 
1 el CNXSMARK oT fae OE 
0 BB 0105 = = 61 PUSHR #*M<R4,R5> 3; Save some eT tpigters 
54 64 A3 00 0107 620 MOVE CSBSL_CLUB(R3) ,R4 : Address of CLUB 

18 1C AS «61D SCOET:C*O 621 BBC #CLUBSV TRANSITION, - : Branch if no transition in progress 
110 6 g CLUBSL_FLAGS(R4) ,90$ 

5C AS) 610 ASOD? 1 ° i CMPL gL USS “LOCAL CSBURA), - ; Is this node the coordinator? 

oF ig 11 625 BNEQ 10$ ; Branch if no 

0C 60 AS i 11 e § BBCC #CSBSV_L 3 Unlock and "branch if not locked 

11¢ CSBS VStATUstaS) . 90$ 
55 53 4 a. © 8 MOVL R3, :; Move CSB address 
FE ¥ 11F BSBW CNXSDECREF CNT ; Decrement reference count -- if CSB 
53 0 1 9 MOVL R5,R ; _ deleted, return previous List entry 
0 BA 1 108 POPR #*A<R4,R5> : Restore registers 
5 : 6 § RSB 

1 3 4 90$: BUG_CHECK CNXMGRERR,FATAL ; Consistency check 
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~SBTTL CNXSDIRVEC_ADJ = Adjust size of lock manager directory system vector 
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FUNCTIONAL DESCRIPTION: 


Adjust the length of the lock manager directory system vector to accomodate 
nodes that may be added to the cluster by fhe state transition now in 
progress. This routine is also used to initially create the lock manager 
directory system vector. This routine never changes the contents of the 
vector == it only adjusts the size. 


The purpose of the togk manager directory system vector is to encode the 
node serving as the d eaypent for each resource. Resource names are hashed 
and the directory system vector indicates the CSID of the node serving as 
the directory for that resource. The local node always appears as a 
entry. Each node ony have 0, 1, or more entries depending upon the setting 
of the LCKSGB_LCKDIRWT system parameter. 

CALLING SEQUENCE: 


JSB CNXSDIRVEC_ADJ 
IPL is IPL$_SCS 


INPUT PARAMETERS: 

LCK$GL_DIRVEC is 0 or points to the current directory vector. 
OUTPUT PARAMETERS: 

LCKS$GL_DIRVEC points to the adjusted directory vector. 
COMPLETION CODES: 

RO : Success/Failure 


Succeeds if vector is big enough or can be expanded as required. 
Fails if vector cannot be expanded as required. 
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SIDE EFFECTS: 
R1-R2 are destroyed. 
DATA STRUCTURES: 
The following is a picture of the DIRVEC structure 
31 24 23 16 15 08 07 00 


poseweerentaneneut meer erase o nen woe power ree es ae wane Poros e rr es ences + 


H Number of valid entries (lognwords) - H 


pece eee moan aae ee gee woeeaeeneses ee eee eo + 


: Number of allocated entries (longwords) : 


iDYNSC_CLU_LCKDIR DYNSC_CLU ‘ SIZE ' 


Se eo eee er foe er eee eee re ih 2 


: First entry (CSID or 0 if local system) } 
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CNXSDIRVEC_ADJ:: 
PUSHR 


10$: 


20$: TSTL 


30$: MOVL 


40$: MULL 


50$: MOVL 
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Save registers 

Clear node counter 

Clear weight accumulator 
Iterate over all CSBS 

Branch when done 

Branch if node is not selected 


Count the node 

Node weight 

Count weight of the node 
End of iteration 


om weight seen? 
Weight seen, use it 
Use number of nodes 


Address of current directory vector 


No directory at present 
Point to base of block 


Compare present and future needs 


No change needed 

Branch if present < future 
Maximum of present and future 
Convert to byte count 

Add overhead 

Allocate space for new vector 
Can't allocate memory 

Store address of new dirvec 
Clear divisor longword 

Number of slots allocated 
Store size of new vector 

Fill in block type 


3; Fill in block sub-t 


ype 
Was there a previous Block? 
Branch if yes 

pretend new is old 

Copy divisor 

Size of block to cop 


Size of new block to fill or zero 


Save address of new block 
Save address of old block 


Restore address of ?o0ld? block 
Test for old=new 


Branch if no previous block to delete 


Deallocate old LCKDIR block 
Mark euscess 
Restore register 


copy data and zero the coppinser of the ne 
() 
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~SBTTL CNXSDIRVEC_FILL = Update contents of lock manager directory system v 


¢ FUNCTIONAL DESCRIPTION: 


Update i contents of the lock manager directory system vector to accuratel 
reflect fh e current state of the cluster. It is assumed that the vector 
nae B whee: ously been adjusted so that it can contain the data that will be 


ANNI 


CALLING SEQUENCE: 


JSB CNXSDIRVEC_FILL 
TL is IPL$_SCS 


INPUT PARAMETERS: 
LCKS$GL_DIRVEC contains address of directory system vector 
OUTPUT PARAMETERS: 
LCKSGL_DIRVEC contains address of updated directory system vector 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R2 are destroyed. 


Be Ge Ge Ge Ge Ge Ge Se Bs Ge Se Ge Se Ge Ge Se Ge Se Se Ge Sse Se Se Sets Ss Be Sse Se Gets 
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4 CNXSDIRVEC_FILL:: 
38 «=BB PUSHR  #*M<R3,R4,R5> 3; Save registers 
: FILL im DIRVEC, ignoring zero-weight nodes 
54 09900000" 6r dO ; MOVL SretROS oR RIRVEC.A6 3; Address of first DIRVEC entr 
5 F4 AG OSE MOVAB -1 ; Pointer to true base of DIRVEC 
63 D4 1 CLRL ; Initialize divisor 
5 00000000 ' GF 0 O88 MOVL C CLUSGL CLUSVEC,R2 3; Address of CLUSVEC 
5 00000000 ' GF C 79 MOVZWL G* busee. “MAXINDEX, R5 3; Number of entries in CLUSVEC 
51 ; 0? 94 10$: MOVL R2)+ ; Address of CSB for cluster member? 
0 1 95 BGEQ 3; Branch if slot unused 
50 54,1 7 79 MOVZWL SEOV.LCRDIRUT(RID RO ; Weight of this node 
eh oe BEQL $ :; Ignore zero-weight nodes 
A 1 oe BSBB 0$ : Call processing rout 
FO 55—SsiéF 79 308: SOBGTR RS,10$ ; Iterate over all CLUSVEC entries 
a See if any non-zero weight nodes were found 
O0000000'GF 54 01 CMPL R4 ,G*LCKSGL_DIRVEC ; Were any en entries fill in 
iB «(12 BNEG 708 t Branch 


4 

iF; 

$i ; No non-zero weight nodes were found. 
Give every node a weight of one. 
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R4: next available slot in directory vector 
RO,R2 are destroyed 


; Save register 

; Increment divisor 

Check for overflow 

; Branch if no slots left 

; CSID of this system 

; Branch if this is the local node 


Use zero instead of local system CSID 
Store entry in DIRVEC 

Store <weight> entries 

Restore register 

Return 


BUG_CHECK CNXMGRERR,FATAL ; DIRVEC is not long enough -- consistency c 


R2 
ADDL2 RO QRS) 
CMPL 0(R3),4(R3) 
MOVL  CSB$L_CSID(R1),R2 


BBC #CSBSV_LOCAL, - 
pore 
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IRVEC_FI " Update contents of loc 7$Eb=138¢ 8:5 :50 (CSYSLOA.SRCJCONUTIL.MAR;1 = (11) 
7 MOVL G*CLUSGL_CLUSVEC,R2 ; Address of CLUSVEC 
MOVZWL G*CLUSGW_MAXINDEX,R5 ; Number of entries in CLUSVEC 
40$: MOVL (R2)+,R1 ; Address of CSB for cluster member? 
BGEQ 50 ; Branch if slot unused 
MOVL #1,R0 3; Use weight of 1 
BSBB 100s ; Use standard processing routine 
50$: SOBGTR R5,40$ ; Iterate over all CLUSVEC entries 
70$: pore #*M<R3,R4,R5> ; Restore register 
: weight of node 
4 ; R3: address of base of directory vector 
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-SBTTL CNXSCLUB_WAIT = Do CLUB-Based 1 Second Wait 
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FUNCTIONAL DESCRIPTION: 
0 a 0-1 second timeout using the CLUBSB_FORK_BLOCK and 
the FORK ~~ service. 
An immed? 4 e return 5 made to the caller's caller. 
When the timout occurs, a return is made to the caller. 
CALLING SEQUENCE: 


JSB CNXSCLUB_WAIT 
ie is IPL$_SCS 


INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
R4 is address of CLUB 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R2,R5 are destroyed 


WAAAA NIAAA AANA NIAAA ANA. AAA A AIA 5s 
RWARMMNOLUOOM PS PNOOOOOOOOOOOVOOOVODODOOODOVOODOODOOOOOOVOOOOOO0O 
© 00 09 09 Cd Cd C9 09 Cd Cd Od 09.00 C9. 09 0D 00 CD CD CD CD CD OD0D 


OOWDNAUE WN SO OO NAULS WO OONAULS UM 


SNL P AAA ARADAE MANNA A NN AN E y ae ee ee te ee 


7? 


Sete Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Sse Ge Se Fe Se Gets tse Sete 


™“~ 
We 
q 
t 


CNX$CLUB_WAIT:: 
AOVL G*CLUSGL_CLUB,R4 Address of CLUB 
MOVAB CLUB$B FORK BLOCK(R4), RS: Address of vod block 
BBSS eC UOFEBSY FKB_BUSY :Branch if fork block is 


54 _00000000'GF D0 
55. O0Cc C4 4 
151¢ AS 600 =«OC 


0 CLUBFKBSL VSTATOS{RSS, 10$'; not busy 

10 BA 1 POPR #*A<R4> -"Save return address 
§ ASSUME CLUBFKBSB_FORK_BLOCK EQ 

ASSUME CLUBFKBSS~ FORK “BLOCK GE FKBSK LENGTH 

4 FORK_WAIT ¢ Melt for the next clock tick 

54 pp 5 PUSHEK R4 tore return address 

54 FF34 C5 E 6 MOVAB =CLUBS$B_FORK pBtock (Rs). ni * "hicress © LUB 
011¢ AS O00 €E BBCC eee Eber STATOeTRSS 1 10s" tlear fork “block busy indicator 
05 9 RSB 3; Terminate the thread 
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91 108: BUG_CHECK CNXMGRERR,FATAL ; Double use of fork block 
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-SBTTL CNXSCLUB_FORK = Do CLUB-Based Fork 


on 
zo 
xs 


+ 
+ 


FUNCTIONAL DESCRIPTION: 

ae gues pd release contro! using the CLUBS$B_FORK_BLOCK 
An Vestlets return is made to the caller's caller. 

When the fork List cycles, a return is made to the caller. 
CALLING SEQUENCE: 


CNXSCL 
ie is IPL$_SC 


INPUT PARAMETERS: 
NONE 
OUTFUT PARAMETERS: 
R4 is address of CLUB 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R2,R5 are destroyed 


UB_FORK 
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NXS$SCLUB_FORK:: 
AOVL G*CLUSGL_CLUB,R4 Address of CLUB 


3; Address of fork block 
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BBSS #CLUBFRBS$V_FKB B Bust :Branch if tork block is 
CLUSEKB aL VStTaTOS(RSS i usy 

MOVB #IPL$_SCS7FKBSB_FIPL(R5) sInitialize. A. PL 

POPR a MERES -"Save return address 

ASSUME CLUBFKBSB_FORK_BLOCK £0 6 

ASSUME CLUBFKBSe~ FORK-BLOCK GE — LENGTH 

JSB G*EXESFORR Wait until the fork list cycles 

PUSHL tore return address 

MOVAB =CLUBSB_ FORK BLOCK(RS), ni * “Address of CLUB 

BBCC a°LUBr ESV FRB BUSY bioar fork block busy indicator 
CLUBFKBSL. STATOS(RSS, 108° 

RSB : Terminate the thread 

108: BUG_CHECK CNXMGRERR,FATAL ; Double use of fork block 
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~SBTTL CNXSFIX_EPID = Add node specifier to EPIDs 
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FUNCTIONAL DESCRIPTION: 
This coyt ing is called when a | oins a cluster to add the node 
identificat on to the EPIDs of exis ome processes. This assumes that 
very Little has nagegnes up to this poin 
fields within the 

CALLING SEQUENCE: 


JSB CNXSFIX_EPID 
TPL is IPL$_SYNC 


INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
SIDE EFFECTS: 
RO-R1 may be destroyed 


t and that therefore, only 
B need to be updated. 


CNXSFIX_EPID:: 
PUSHR #*M<R2,R3,R4> ; Save registers 


2 Set the contents of the cell SCHS$GW_LOCALNODE to the = ressed form of 
: the local node CSID. Update the extended PID cells of all processes on 
: the system. (Null process will be updated multiple ee, t no harm done) 


ASSUME PCBSS_EPID_NODE_IDX EQ : Index is one eyes 
ASSUME PCBSS~ “EPID_NODE-SEQ EQ §-~. is two b 
ASSUME PCBSy PID_NODE SEQ EQ - . NOSE I is right after index 
PCBSV_EPID_NODE_IDX + PCBSS EP Ib NO > 
NODE_WIDTH = PCBs PPS -NODE_IDX™+ PCBSS_EPIB_NODE 
MOVL g Cuyset AC CLUB ,R4 3; Address of le 
MOVE —CLUBSL LOCAL ESB(R4) ,RI ; Locel CSB addre 
MOVAW G sth Gu_LOCALNODE ,RS 3 Get pointer to *the Localnode 
VB  CSBSW_CSTD_IDX(R1),(R3)+ ; Store the index 
BICBS #*xFC,C _CSID_SEQ(R1), (R3)+ ; Store the sequence, cheering high 
MOVZWL =-(R3),R : Put localnode in a regis ster 
VZWL G6*S $ci_ wre Re ; Get index of highest PCB 
VL = CHSS LPCBVEC.R ; Get address of se vector 
$ 10$: MOVL & 3; Get address of 
9 INSV RS retasy frie NODE : Set the node bits in in the 
CBSL_E EpiD ey 4) : extended PID field 
TSTL 4 se et : Is it a subprocess? 
BEQL s Not subprocess beqve F it alone 
INSV R3,#PCBSV_EPID_NODE_IDX,- > Set the node bits in the 


nt 'Rad'noge spec! aniePESTESE UECRERIRES QR:Sh:S2 UNIS ta Conutiteman:1 "29° (fy 


§ Het WIDTH, PCBSL_EOWNER(R4) 3 _ subprocess owner field 
208: SORGEA Re,1 os" ; Try next PCB 
4 POPR #°R<R2,R3,R4> ; Restore registers 
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-SBTTL CNXSCHECK_QUORUM = Check Presence of Quorum and Hang if Absent 
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FUNCTIONAL DESCRIPTION: 
Test ror, the ey one! quorum of ‘‘lLive’’ nodes. If a quorum is 
absent, tm oy l a quorum is restored. This serves to 
block act ty that nigh tsine shared resources for which the locks 
pey not Lenore ye valid (since wore node may have been failed out 

by someone else). A fork oo at PL 4 is used because this blocks 

all process-based act tty. while a lowing. timer~based activity and 
SCS/connection management functions to continue uninterrupted. 

CALLING SEQUENCE: 


JSB/BSBW/BSBB_ = CNXSCHECK_QUORUM 
IPL is IPL$_SCS 


INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO and R1 are destroyed. 


CNXSCHECK QUORUM: : 


vem dncn2 Save registers 


BSB re, RBENAAIC ” QUORUM : Is dynamic quorun present? 
BLBS RO” ; Branch if presen 
BBC actugsy CLUSTER, - ; Branch if not cluster member 
oT KAGS (RSS . 10$ ; and return 
BBCC rtp UORUM 3; Mark + no gel es branch if 
UBSL eerie 108 already absent 
JSB Rost CLUTRANIO : the w leks nto mount verification 
3; to inhibit further 1/0 initiations 
Vv W*LOSEQUORUM_MSG RO ; Quorum lost message 
CLAL R5 3; No CSB address 
BSBW SRTSCOM 16_ CHANGE ; Log event 
8S8B $ ; Fork on 1/0 Post queue 
10$: POPR #*A<R2,R3,R4,R5> ; Restore registers 
RSB 3; Return to caller 


; 1/0 Post fork routine 
> Re-fork until a dynamic quorum is present 
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’ ASS PL$_SCS GT IPL$_IOPOST 
100$: eth, bbes és ‘a 3; Raise | 
BSBB C vi _DYNAMIC_QUORUM ; Is dynamic quorum present? 
BLBS RO,110 : Branch if present 
6S88 3; Fork on same block 

; Branch to common exit 


af 


1 


1C A4 = =©10000000 8F 1108 BISL2 #CLUBSM_QUORUM, - 3; Mark quorum present 
CLUBSL FLAGS (R4) 
50 0000'CF MOVAB W*GAINGUORUM_MSG,RO ; Quorum lost message 
5 CLRL R :; No CSB address 
FCDF* SBW CNXSCONF IG_ CHANGE 3; Log event 


; Restore IPL 


& SER B =Sao 


8 
120$:  ENBINT 
RSB 


> 


UWEWN-"OOONOU 


; Set up and queve fork block onto 1/0 Post processing queue 


VPI SOPOT ET BS MUNIN Fh VN HO 
i i kk kk at tt tk a st a 


&PFWAINononoponopononunin 


55. 0174 C4 43 200$:  MOVAB CLUBSB_HANG_FKB(R4),RS ; Address of fork block 
OA AS 08 MOVB #DYNSC_FRK, - 3; Block type 
Kase TYPE (RS) 

0B AS 04 90 MOVB Fx Pens) ; IPL = 4 

OC AS AF MOVAB 6°1008,FKBSL_FPC(RS) z Restart PC address 

50 00000050" ¢F ¥ $ MOVA G*10C$6L PSEC RO 3; Address of queue header 
0480 65 0O€ INSQUE (R5),@4(RO) 3; Queue to 1/0 Post-processing queue 
ss 3 SOFTINT #1PL$_1oPOSsT : Wake up dispatcher 
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C 
: «SBTTL COMPUTE _DYNAMIC_QUORUM = Calculate dynamic quorum presence 
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FUNCTIONAL DESCRIPTION: 
Determine whether a rum re S cyncnnentty Erqeents, 
Live connections to a quorum of nodes. 
ng pesed, on aval tat le nodes, add extra votes. 
accessible to the local node. 
CALLING SEQUENCE: 


JSB COMPUTE _DYNAMIC_QUORUM 
PL is IPL$_SCS~ 


INPUT PARAMETERS: 

CSB'S in List with CSBSM_MEMBER bit set 
OUTPUT PARAMETERS: 

R4 is address of CLUB 
COMPLETION CODES: 


RO = TRUE indicates that a quorum is dynamically present 
RO = FALSE indicates that a quorum is not dynamically present 


SIDE EFFECTS: 
NONE 


i.e., whether 
addition to 

f the 

the cluster and is dynamically 


Wis~ 


OMPUTE =preante -QUORUM: 


DP DPWNWNODSD BDA AAA AAA AAA AAA AAA AAPA AA AAA AAA AAA AAA AAO 


Ny So ae Se SS SS SS SSS III IIIS 


em em mk a 8 a a Sd a tt a nt tk at at a es a a ss = a 4 ts 


mn a aa a a a ak i a a ad td 4 a a = = a a a So os a 


EPP EEREE SE FAWN I WIIROOPPoNPononny) 2 ee 


SOD NA MALAI O ODA NEW 9 OO NAU EWN O OOVNOAUS WOO 


of PUSHR ~#*M<R1,R2,R3> ; Save registers 
CLRL R 3; Votes to be included 
FC B BSBW CNXSSCAN_CSBS 
1D BLBC : ALL don 
17 60 A3 1 BBC acsBs 3 aesh ‘¢ node is not cluster member 
cage Ve TATUs (AS), 20$ 
12 60 AS =: 00 BBS #CSBSV_LONG BREAK ; Branch if long break seen 
CSBSL_STATUS(RS) , 20S 
06 60 AS «18 BBS eeae LOCAL ; Branch if local node 
F CSBSL SAE 10$ and include votes 
01 43 a3 5 CMPB CSB Ser OF : Is connection open? 
07 BNEQ gpgesk $ gt * not open 
50 50 a 10$: MOVZWL cso A RO ; Sum vo 
$52 5 ADOL2 oR 
3 208: RSB 3; Continue scan 
0D 1 AG 19 30$: BBC #CLUBSV_QF YOre ; Branch if disk is not ‘member’ 
CLUB BSL FLAGS (R $408 
08 1C ASCE 7 BBC ts 7a DYNVOTE ; Branch if connection can't be trusted yet 
7 tLuB L "FLAGS (RG), és” 


= Cluster Configura gion Manager Urilete 16-SEP- AX/VMS Macro Vv04-00 Pa 5 
COMPUTE DYNAMIC 7QU0 = talrulate dynam 4 ~}38% ge: 85; tf SYSLOA.SRCIJCONUTIL.MAR;1 ” (ia) 
AE CS 3 77 «#11 MOVZWL CLUBSW_QOVOTES(R4),RO ; Votes for quorum disk 
eee a a, . 
51 20 a4 ¢ F 1155 40$ MOVZWL C ~QUORUM(R4) ,R1 3; Cluster quorum 
04 1154 CLRL R ; Assume no dynamic quorum 
51 01 1155 CMPL ® 3; Check for presence of quo 
1F 11 § BLSSU- 5 * 3; Branch if querus is not dynentcol ly presen 
50 1 00 A 11 MOVL # ; Quorum is dynamically present 
E BA D i : 508: POPR #-hekt .R2,R3> ; Restore registers 
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~SBTTL CNXSQUORUM_CALC = Calculate Quorum and related data 


tar 


+ 
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FUNCTIONAL DESCRIPTION: 
Calculate the ere. votes. one Number of nodes for the selected 
nodes. Quorum is maxim zeq with the value in CLUBS$W_QUORUM. 
Quorum gisk votes is minimized with the value in CLUBSW_QDVOTES. 
Quorum is ratcheted up to be greater than half of the number of votes. 
CALLING SEQUENCE: 


JSB CNXSQUORUM_CALC 
IPL is IPL$_SCS 


INPUT PARAMETERS: 
CSB'S in List 
OUTPUT PARAMETERS: 
R4 is address of CLUB 
R2 is number of nodes in cluster 
R1 is maximum of quorum in selected CSBs and CLUBSW_QUORUM 
RO is sum of the votes of the selected CSBs 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
CLUBSW_NEWQUORUM contains calculated quorum 


CLUBSW-NEWQDVOTES contains calculated quorum disk votes 
CLUBSV_QF_NEWVOTE indicates whether or not quorum disk should be a ‘‘member'’ 


WAA.IAI AAA AANA AI AAAI 


OoOwooowowowowownowowowowowvono 


WANA ANNA AI 
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me ed ad th td td = = ot td = ts ot 2 2 a a a 8 a a ao 
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CNXSQUORUM_CALC:: 
1 PUSHR #*M<R3,R5,R6,R7> : Save registers 
§ MOVL G*CLUSGL_CLUB,R4 3; Address of CLUB 
MOVZ2WL CLUBS$W_QOORUM(R4),R1 =; R1 = quorun 
oF 4 CLRL R 3; R2 = ber of nodes 
A 5 CLR R 3; RS = votes 
A $ MOVZWL C UBSU QOVOTES (AS) .RG ; R6 = Min quorum disk votes 
A MCOML #0,R : Turn all quorum disk bits on 
BSBW CNXSSCAN_CSBS 
BLBC 3; ALL done 
1 BBC #cSB$V_SELECTED, - : Branch if not selected 
1 CSBSL_STATUS(R f .408 
1 MCOM C BSL, .STATUSER »,R :; Get complement of QF_ACTIVE and QF_SAME 
1 BICL RO,R ; Cumulate QF_ACTIVE and QF_SAME bits 
1 INCL ; Count another node 
1 CMPW B54 _QUORUACRS) RI 3; Maximize quorum 
1g BLEQU 3; OK 
e . New max 
1 MOVZWL CSBS$W_QUORUM(R3) ,R1 N ax imum 


i} 
CONUT = Cluster Configuration Manager Uritete 16-SEP-1984 00:28:47 \VAX/VMS Macro V04-00 Page 27 
vou-008 CNXSQUORUM, CALC >= Calculate Guorus and r $78 Pa} 984 8:59:86 SYSLOA.SRCJCONUTIL.MAR;1 ° fy 
50 SOA 3 C9 1218 30S: MOVZWL CSOSY .VOTESCAS) .AO ; Sum votes 
. 5 C Co (1 ADOL RO,R 
56 S6A DO 1 CMPW $W_QDVOTES(R3) ,R6 ; Minimize quorum disk votes over all nodes 
04 E D4 1 BGEQU 3; Branch if no new minimum 
56 56 A3 f D6 (1 MOVZWL CSBSW_QDVOTES(R3) ,R6 3: New minimum 
+ ! ? 40$: RSB 3; Continue scan 
50. 0655 0 DB 1225 100$: MOVL R5,R0 3; Number of votes 
00 1C AG «61A—Ci*éCE DE 1 § BBCC #CLUBSV_QF MeMyOTE - j; Assume no vote for quorum disk 
es 4 CLUBSL_FLAGS(R4) ,110$ 
oc 7 3 «(CE —3 1 110$: BBC #CSBSV_QF_SAME,R/,1 * ; Branch if same disk not specified by all 
7 O09 €1 O3E7 1 BBC #CSB$V-QF-ACTIVE,R7,13C$ ; Branch if any disk is inactive 
6 £8 €B 1 120$ ADOL2 ; Count quorum disk vote in tota 
00 1C AS «6O1AC*€E EE 1231 BBSS #CLUBSV_QF NEWVOTE, = ; Tag the quorum disk as contributing a vote 
FS : CLUBSL_FLAGS(R4),150$ 
53 29 1 F3 1 130$:  ADOL RO, : Votes + 2 
C6 O3F7 1234 DIVL 3; (Votes + 2) / 2 
51 Di O3FA 1235 CMPL R1 : (Votes + 2)/2 < quorum? 
2 1F QO3FD 1 § BLSSU 1468 ; Branch if yes 
51 DO QOSFF 1 MOVL R3,R1 3; Up the quorum 
00A4 C4 51 +280 ott} 1238 140$: MOVW R1,CLUBSW_NEWQUORUM(R4) ; Computed quorum 
46 AG 56 BO 0407 1239 MOVW _° 3; Quorum disk votes 
0408 1240 CLUBSW_NEWQDVOTES(R4) 
OOE8 BF BA 0408 1241 POPR #*M<R3,R5,R6,R7> 3; Restore registers 
05 peer : ¢g RSB Return 


<o- 


> 
. 
. 
a 
. 
° 
co 
2 
ro 
2 
o 
2 
° 
a 
o 
7 
a 
. 
a 
a 
. 
oO 
, 
. 
. 
° 
o 
. 
* 
° 
o 
. 
e 
. 
e 
- 
- 
2 
a 
. 
. 
° 
o 
. 
e 
° 
o 
a 
. 
- 
° 
° 
e 
° 
° 
e 
o 
- 
ca 
° 
e 
o 
o 
. 
e 
. 
e 
o 
e 
. 
o 
. 
e 
. 
a 
° 
o 
7 
o 
. 
e 
. 
° 
. 
e 
. 
os 
. 
e 
. 
eo 
. 
co 
oO 
- 
e 
: 
o 
. 
o 
. 
e 
io 
o 
7 
° 
. 
o 


oun 


N 
régrtiguratsontanager utyt fete "SrSEP=198¢ 04:67:30 ESYSUOR.SReS¢onuTiCcman:1 79° (8) 


~SBTTL CNXSDISPATCH = Second Level input dispatcher for CNX 


£2 


vO4~000 cnk 
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FUNCTIONAL DESCRIPTION: 


This routine is called by gre first level input ey dispatcher 
whenver the facility code in the incoming message is CLSMSGSK_FAC_CNX. 


CALLING SEQUENCE: 


JSB CNXSDISPATCH 
IPL is IPL$_SCS 


INPUT PARAMETERS: 
R2 is address of message 
R3 is address of CSB 
Re is address of PDT 


If CLSMSGSL_RSPID(R2) is non-zero, then RS is the address of 
a noninitialized CDRP. : 


OUTPUT PARAMETERS: 
NONE 
SIDE EFFECTS: 
RO-R5 may be destroyed 


CNXSDISPATCH:: 
vachealeccae™ CLSMSGS$B_FUNC(R2) , TYPE=B,PREF IX=CLMCNXSK_FNC_, = 


<STATUS CNXSRCVD_STATUS>, - 


Status message 
<ENTER ENXSRCVD ENTER? 


Cluster membership request message 


<LOCK, CNX$ CVD_ > Coordinator lock request 
<DESC,CNXSRCVD _DESC>, - Node description 

<VEC, CNX$SRCVD_JEG>, - Cluster vector slot description 
<FORM,CNXSRCVD_FORM>, - New cluster proposal 

<RECONF IG, CNXS$RCVD_RECONFIG>, - pecent wpuret ten proposal 

<JOIN, CNX$RCVD_JOIN>, - to add node 

<UNLOEK. CNX RCYD UNLOCK>, = Unlock/Undo request 

<PH2, CNX$RCVD_PH2> 


Phase pt oe 


e 
Ready for fa Tover step 


: Proposa 
V - : 
<READY CNX$RCUD_READY>, - : 


SDOSSOSSDOOSOOSSOSOSOOOOOSSSOSOOSOSOOSOO OOOO OOOOOOOOOOOOODOOOOOOOO 
RRRRRRKKRRRKRRRRRRRRRRRRRRRRRRRRRRRRKKKKKRKRRRRRRRRRRRRRE 
CaP OP OPOPOPOROPORIPOROPIPIPONOPONONONUNIPIPIPUPOPPOPONOPONONOPPORIPOPOPOPUPOROPUPOPROPOPOPOPOPUPUPOPUNUNUNUITU 


DBDOOO0OO0 OOO O00 00 09 69 69.09 09 09 09 SII NI NISSEN PAA AAA AAA A MMIII £ 


SOON ULEAD = OOD NAN E WN 9 OOD NAUE WIN 2 O OO NAUMU EWN OOONAUES WN" OWONOM 


DOSTEP, CNXSRCVD_DOSTEP>, - Do failover step 
<QUORUM, CNXSRCVD_QUORUM>, - ; Quorum ghenge message 
<TRNSTS,CNXSRCVD_ TRNSTS>, - Transition status request 

! <TOPOLOGY ,CNXSRCOD_TOPOLOGY> - ; Topology exchange request 
: BUG_CHECK CNXMGRERR, FATAL 3; Invalid function code 

7 

7 END 


B 9 
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ASE z 1 CNXS$CLUB_FORK RG 
SSDISPL 2 ip CNXSCLUB-WAIT $86003%9 RG 
SSGENSW = CNXSCONFIG_ CHANGE aeenenee =X 
$$HIG 2 F CNXSDECREF CNT aeeeeere =X 
SSLIMIT 2 E CNXSDIRVEC_ADJ 9 12C RG 
$SLOW = 1 CNXSDIRVEC FILL 1C2 RG 
SSMNSW = 1 CNXSDISPATCH 410 RG 
SSMXSW = 1 CNXSFIX_EPID 91 RG 
BUGS$_CLUEXIT teeeenee =X 03 CNXSINIT_CSBS 19 RG 
BUG$~ CNXMGRERR eeeeeeee =X 0 CNXSMARK-LOCKED 6 FB RG 9 
CORPSL_MSG_BUF = 0000001 CNXSMARK- UNLOCKED 105 RG 
CORPSL-RETRSPID = 900 8 CNXS$SQUOROM_CALC 0000390 RG 
CLMCNXSK_FNC_DESC = CNXSRCVD_DESC eeeenere 6X 
CLMCNXSK_FNC_DOSTEP = 444 CNXSRCVD_DOSTEP aereeere 86x 
CLMCNXSK_FNC_ENTER = 0000 CNXSRCVD_ENTER eeeerene 
CLMCNXSK_FNC_FORM = 0000000 CNXS$RCVD_FORM eeeeeree XxX 0 
CLMCNXS$K-FNC_JOIN = 000000 4 CNXS$RCVD_JOIN eeeeeeee xX 0 
CLMCNXSK_FNC_LOCK = 000000 CNXSRCVD_LOCK aeneenee xX 0 
CLMCNXSK_FNC_P = Q000000A CNXSRCVD_PH eeeeeree =X 6 
CLMCNX$K_FNC_ = 00000000 CNX$RCVD_QUORUM aeneeeee x 
CLMCNXSK_FNC_READY = 00000008 CNXSRCVD_READY aeneeeee xX 
CLMCNX$K_FNC_RECONF IG = 00000008 CNXSRCVD_RECONFIG eeneeeee =X 
CLMCNXSK_FNC_STATUS = 00000001 CNXSRCVD_STATUS eteeeene § x 
CLMCNX$K_FNC_ TOPOLOGY = 0000000F CNXS$RCVD_ TOPOLOGY eeneeree xX 0 
CLMCNXSK_FNC_TRNSTS = 0000000E CNXSRCVD_TRNSTS aeeeenee = X 0 
CLACNXS$K_FNC_UNLOCK = 00000004 CNXS$RCVD_UNLOCK aeeeeere XxX 0 
CLMCNXSK—FN = 00000006 CNXSRCVD-VEC eeeeeeee KX 0 
CLSMSG$B_F = 00000009 CNXSRESP_FORGET 00000000 RG 0 
CLSMSGSL_RSPID = 00000004 CNXS$SCAN_CSBS 000002A RG 
CLUSGL_CCuB teeeeeee =X 03 CNXSSCAN_CSBS_EXIT 000048 RG 
CLUSGL-CLUSVEC eeeeeeee xX 0 CNXSSCAN_CSBS_FORK 00 O8 RG 
CLUSGW_MAX INDEX aeeerere = X 02 CNXSSCAN_CSBS-RETRY 0 
CLUBS$8_FORK_BLOCK = CNXSSEND_ FORGET 0 
CLUB$B_HANG_FKB 2 CNXSSEND-MSG_CS 0 
CLUBSL_ 3 OMPUTE BYNARIC_QUORUM 0 
CLUBSL_CSBQFL = CSBSB_REF_CNT = 
CLUBSL_FLAGS s CSBSB_STATE = 
CLUBS$L_LOCAL_CSB = CSBSK_OPE z 
CL “QUORUA x CSBSL_CLUB s 
CLUBS$V_CLUSTER = CSBSL_CSID = 
CLUBSV_QF _OYNVOTE z CSBSL-STATUS z 
CLUBSV~_QF “NEWVOTE 2 CSBSL_SYSQFL = 
CLUBSV_QF “VOTE s CSBEV~LOCAL = 
CLUBS$V— QUORUM = CSBSV_LOCKED = 
CLUBSV— TRANSITION s CSBSV"LONG BREAK = 
CLUBSW_NEWQDVOTES z CSBSV_MEMBER 2 
CLUBSW_NEWQUORUM s CSBSV_QF_ACTIVE = 
CLUBSW"NEXT_CSID = CSBSV_QF ~ SAME = 
CLUBSW-QDVOTES = CSBSV_SECECTED S 
CL UM e CSBSW_CSID_10x = 
CLUBFKBSB8_FORK BLOCK = CSB$W"CSID-SEQ z 
CLUBFKBSL_STATOS = CSBSU~LCKDTRUT = 
CLUBFKB$S_FORK_BLOCK z CSBSW"QDVOTES 2 
CLUBFKBS$V"FKB_BuSy = CSBSW_QUORUM = 
CNXSASSIGR_CSID CSB$W_VOTES = 
CNXSBUGCHECK CLUSTER DYNSC_CLU = 
CNXSCHECK_QUORUM DYNSC"CLU_LCKDIR 2 


CONUTIL 
Symbol table 
DYNSC_FRK 
EXESACONONPAGED 
EXESCLUTRANIO 
ESDEANONPAGED 
EXESFOR 
EXESFORK_WAIT 
BSB_FIPL 


PCBSV~EPID NODE ~1DX 
PCBSV-EPID-NODE SEQ 
PRS_IPL 
PRS-SIRR 
SCHSGL_MAXPIX 

“PC 


$G BVEC 
SCHSGW" ” aetanat 
SS$_NORMA 


PSECT name 


Phase 


pane ses teen sen 
processing 


s 1 
S lL table sort 
Syabol 


Page faults CPU Time 
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= 00000008 
eerereee x 
eereeeee x 
eeeeeene x 
eeetenee x 
eereerne x 

= B 

= A 

= 18 

= 9000000C 
eeeeeeee x sf 
90000006 x 

= 

= 209006 
ekeeeene x 83 
eeekeene x 

= 0000000A 

= 00000068 

= 00000064 

= 44444 

= 0000000 

= 0000001 

= 0000001D 
rebeeeee x 0 
aherenes x 0 
eerekeee x 0 
ekekeeee x 8 
eeeeeene x 

= 00000001 

toemewweasoornwoasece oe 
' ;_Psect synopsis ! 
Allocation PSECT No. Attributes 


geenooee {83 SE H:) Maate Us 
00 ee ( 107 * 02 < 3°} NOPIC USR 


Gowwwcoecsesenocecececese$ 
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ABS LCL 
ABS LCL NOSHR 
REL LCL NOSHR 


AX/VMS Macro V04-00 
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NOSHR ; — wag NOVEC BYTE 


T NOVEC BYTE 


EXE RD 


URT NOVEC LONG 


oo 


<o- 


Symbol table output B 9 
Psect synopsis output 1 . 1 
Cross-reference output 9 " 0 
Assembler run totals 90 " 4 
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The yerking ses _— was 1909 peges. 

118851 bytes (235 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 100 pages of symbol table space on eeetee to hold 1826 non-local and 51 local symbols. 
1 source Lines were read in Pass 1, produc ng object records in Pass 2. 

32 pages of virtual memory were used to define 50 macros. 


teem mn mon wm oe mann ewer anew & 


! Macro Library statistics ! 


ome remem eee mmm mee mee meee eee ey 


Macro Library name Macros defined 
-$255$0UA28: SVELOA 901 2CLUSTER ALB: 1 ¢ 
_5255S0UA28: ab A LIB.MLB;1 1 
$255SDUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 24 


1954 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CONUTIL/OBJ=0BJ$:CONUTIL MSRC$:CONUTIL/UPDATE=(ENH$: CONUTIL) +EXECML$/LIB+L1B$:CLUSTER/LIB 
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